home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #1
/
Commodore_Disk_User_Vol.3_1_1989_-.d64
/
basic extension
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
734b
|
27 lines
10 dim op(100):p=1
15 for i=100 to 210 step 10
20 tt=0
30 for j=0 to 7
35 read op(p):tt=tt+op(p)
40 p=p+1
50 next
55 read ft:if ft<>tt then print "error in";i
60 next
65 p=p-4
70 for u=1 to p
75 poke 678+u,op(u)
80 next u
85 end
100 data 72, 73, 77, 69, 77, 46, 69, 88, 571
110 data 69, 77, 65, 73, 78, 46, 69, 88, 565
120 data 69, 169, 247, 160, 2, 32, 30, 171, 880
130 data 169, 9, 162, 167, 160, 2, 32, 230, 931
140 data 2, 169, 8, 162, 176, 160, 2, 32, 711
150 data 230, 2, 32, 83, 228, 169, 128, 162, 1034
160 data 0, 133, 56, 133, 52, 134, 51, 134, 693
170 data 55, 32, 0, 132, 76, 154, 227, 32, 708
180 data 189, 255, 169, 2, 166, 186, 160, 1, 1128
190 data 32, 186, 255, 169, 0, 76, 213, 255, 1186
200 data 147, 5, 87, 65, 73, 84, 46, 46, 553
210 data 0, 139, 227, 184, 2, 0, 0, 0, 552